Unit caheshar;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, Wwdbigrd, Wwdbgrid, StdCtrls, Buttons, wwdbdatetimepicker, siComp,
  siLngLnk;

Type
  TfCaHesHar = Class(TForm)
    wwDBGrid1: TwwDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    wwDBGrid3: TwwDBGrid;
    GroupBox1: TGroupBox;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    Procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  fCaHesHar: TfCaHesHar;

Implementation
Uses data, ana1;
{$R *.DFM}

Procedure TfCaHesHar.BitBtn2Click(Sender: TObject);
Begin
  close;
End;

procedure TfCaHesHar.FormShow(Sender: TObject);
begin
  anaform.CreateExport(Self);
end;

End.
